home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
c
/
fasl_vector
< prev
next >
Wrap
Text File
|
1986-06-24
|
591b
|
34 lines
object
read_fasl_vector(in)
object in;
{
int dimcount, dim;
object x;
int a;
object *vsp;
while (readc_stream(in) != '#')
;
while (readc_stream(in) != '(')
;
vsp = vs_top;
dimcount = 0;
for (;;) {
delimiting_char = code_char(')');
x = read_object_non_recursive(in);
if (x == OBJNULL)
break;
vs_check_push(x);
dimcount++;
}
x = alloc_simple_vector(dimcount, aet_object);
vs_push(x);
x->v.v_self
= (object *)alloc_relblock(dimcount * sizeof(object));
vs_pop;
for (dim = 0; dim < dimcount; dim++)
x->v.v_self[dim] = vsp[dim];
vs_top = vsp;
return(x);
}